home *** CD-ROM | disk | FTP | other *** search
- object FormBloqueoDirs: TFormBloqueoDirs
- Tag = 65500
- Left = 308
- Top = 224
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsSingle
- Caption = 'Bloqueo de direcciones'
- ClientHeight = 384
- ClientWidth = 414
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label5: TLabel
- Tag = 65500
- Left = 14
- Top = 14
- Width = 111
- Height = 13
- Caption = 'Bloqueo de direcciones'
- end
- object PandaBrown13: TPandaBrown
- Left = 14
- Top = 35
- Width = 32
- Height = 32
- TheBrown.Data = {
- 76020000424D7602000000000000760000002800000020000000200000000100
- 04000000000000020000120B0000120B00001000000000000000FFFFFF0000FF
- FF00FF00FF000000FF00C0C0C00080808000008080008000800000008000FFFF
- 000000FF00008080000000800000FF00000080000000000000002222222FFFFF
- FFFFFFFFFFFFFFFF2222222222254444444444444444444F2222222222250001
- 001001010101014F2222222222250000000000000010104F2222222222250000
- 0101001015FFFF5F222222222225000000000005FFDDEEFF5222222222250000
- 0001015CCCDBDEECF522222222250000000000CCACCDBDCCCF22222222250000
- 000005C4ACBBDBCACF5222222225000000000CCCC9BBBDC4CCF2222222250000
- 0000059B9B9BBBDAACF222222225000000000599B9B9BBDC4CF2222222250000
- 0000050DCDDBBBBDCCF2222222250000000005DCCCCDBBBBDE52222222250000
- 000000C4ACCCDBBBDE222255555555555500005C4ACCCDBBE5222FFFFFFFFFFF
- FF550005CC4ACCCE522261111111111111F5000005CCCC5F2222611111FF1111
- 14F000000000014F2222261111FF11111F5000000000004F2222261111111111
- 4F0000000044444F2222226111FF1111F5000000005FFFFF2222226111FF1114
- F0000000005045F22222222611FF111F5000000000545F222222222611FF114F
- 000000000055F2222222222261FF11F500000000005F222222222222611114F5
- 55555555555222222222222226111F5222222222222222222222222226114F22
- 2222222222222222222222222261F5222222222222222222222222222261F222
- 2222222222222222222222222226222222222222222222222222}
- end
- object Label19: TLabel
- Tag = 65600
- Left = 58
- Top = 35
- Width = 347
- Height = 57
- AutoSize = False
- Caption =
- 'Indica las direcciones a las que deseas impedir el acceso. Puede' +
- 's especificar la direcci�n en notaci�n decimal (192.168.2.76) o ' +
- 'como nombre (www.pandasoftware.es).'
- WordWrap = True
- end
- object Bevel16: TBevel
- Left = 136
- Top = 20
- Width = 269
- Height = 3
- Shape = bsTopLine
- end
- object Label1: TLabel
- Tag = 70000
- Left = 60
- Top = 102
- Width = 241
- Height = 13
- AutoSize = False
- Caption = 'Agregar esta direcci�n:'
- end
- object LVDir: TListView
- Tag = 66700
- Left = 58
- Top = 159
- Width = 243
- Height = 151
- HelpContext = 27
- ColumnClick = False
- Columns = <
- item
- Caption = 'Direcciones a bloquear'
- Width = 239
- end>
- ReadOnly = True
- HideSelection = False
- RowSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- end
- object Edit1: TEdit
- Left = 58
- Top = 119
- Width = 243
- Height = 21
- HelpContext = 26
- MaxLength = 100
- TabOrder = 1
- OnChange = Edit1Change
- OnKeyDown = Edit1KeyDown
- end
- object ButtonEliminarDirectorio: TButton
- Tag = 4700
- Left = 316
- Top = 159
- Width = 90
- Height = 22
- HelpContext = 29
- Caption = 'Eliminar'
- TabOrder = 2
- OnClick = ButtonEliminarDirectorioClick
- end
- object ButtonAceptar: TButton
- Tag = 2200
- Left = 214
- Top = 353
- Width = 90
- Height = 22
- Caption = '&Aceptar'
- ModalResult = 1
- TabOrder = 3
- OnClick = ButtonAceptarClick
- end
- object ButtonCancel: TButton
- Tag = 2400
- Left = 316
- Top = 353
- Width = 90
- Height = 22
- Cancel = True
- Caption = '&Cancelar'
- ModalResult = 2
- TabOrder = 4
- end
- object CBPreguntar: TCheckBox
- Tag = 66600
- Left = 58
- Top = 322
- Width = 347
- Height = 17
- HelpContext = 25
- Caption = 'Preguntar por acci�n a realizar en caso de bloqueo'
- TabOrder = 5
- end
- object ButtonLimpiar: TButton
- Tag = 18800
- Left = 316
- Top = 188
- Width = 90
- Height = 22
- HelpContext = 30
- Caption = '&Limpiar Lista'
- TabOrder = 6
- OnClick = ButtonLimpiarClick
- end
- object SpeedButtonAddDirectorio: TButton
- Tag = 4600
- Left = 316
- Top = 119
- Width = 90
- Height = 22
- HelpContext = 28
- Caption = 'A�adir'
- TabOrder = 7
- OnClick = SpeedButtonAddDirectorioClick
- end
- object ManuForm1: TManuForm
- Enabled = False
- TitleBar.ApplicationInfo.FontStyle = [fsBold]
- TitleBar.Color = clMaroon
- TitleBar.CompanyInfo.FontStyle = [fsBold, fsItalic]
- TitleBar.NbOfColors = 0
- Left = 470
- Top = 4
- end
- end
-